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3 MODIFIED BY: 


v03-041 L sn0ee? Lawrence J. Kenah 27-Jun-1984 
d R5 to entry mask for SCANEXH system service. 
v03-040 LMP0239 Mark Pilant, 23-Apr-1984 9:21 
Change S$SCHKPRO Pin an exec mode service to a kernel mode 


service. This was made necessary by the SCHKPRO (internat 
entry point) interface change. 


v03-039 mMD0250 Reg pus 7-Feb-1984 17:49 
ace suppers for $M ACCESS "hoes ation specific accessibility 
routine 


v03-038 paspest Bovie Solomon 20-F eb-1984 

(ve VOS-019) new ges gn for RMS echo SYSSINPUT to SYSSOUTPUT 
(vs VO Echo is now performed by a caller's mode AST 
routine Zeslince in RMS\RMSEXRMS. Change INCB/DECB of FAB/RAB 
busy bit to BISB/BICB, now that we have room. 


v03-037 SSA0004 Stan Amway 28-Dec-1983 
For SSETPFM, changed number of paraacters from 1 to 4 
and changed entry mask to save 


vO3-036 TMKO002 Todd M 19-Nov-1983 
The entry point for sasctolD can no longer be reached as a 


RO ODNA NEAR OOD NOA UNE WIN  O OO NONE WWI OO ONAUES WD ($0 OONOUS WN O0Oo—— 
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branch destination from the a 
de 


Macro V04-00 Page ‘ 
RCIEMODSSDSP” MAR; 1 (1) 


mode dispatcher. 
has been placed within 


emporary entry perot ere 
t to the real system 


this module, and a JM 1g pe 
service entry point (EXESSASCTO 


Also, change the entry mask for 
now saved. 


v03-035 TMKO001 Todd M 22-0ct-1983 
The entry points for SEINISH RDB and SIDTOASC can dl 
tenees be reached as branch destinations from the executive 
weeiD tegercher. Temporary entry points oaee aren *RDB and 
EXE oe SC) have oe laced within this module, and from 
JMP is made e real system service entry points 
Ce SestrinisH * RDB cal OEXESSIDIOAS | i 


vV03-034 PRBO254 Paul Beck 15-Sep-1983 14:49 
(1) Correct the way synchronous CJF services are defined. 
(2) Define loadable RUF services. 


V03-033 wMc0029 Wayne Cardoza 31-Au ug -1983 
Loadable services should not be ane pnel stones y inhibited. 
Add an alternate CHMx argument to LDBSRV 


V03-032 DwT0125 David W. Thiel 22-Aug-1983 
Remove CHECKARGLIST oat” Pi to same. 


V03-031 MKL0167 ary Kay Lyons raf 
Generate baatubie service vector for CuFSGETE is 


v03-030 xBT0578 Keith B. Thompson 8-Aug-1983 
Add parameter to XSF ILESCAN 


V03-029 RASO178 Ron Schaefer 29-Jul-1983 
Add code to Sates?” the AST/non-AST RMS FAB/RAB race 
condition where an RMS operation is initiated while 
the user FAB/RAB is still waiting for completion of 
previous operation. 


ea) os 


Oooo 
SoOoOooCoOCOoooooooooooo 
SOOCooCoOOCOooOoCooooooo 


-1983 


v03-028 wMC0028 Wayne Cardoza 29-Jun-1983 
Add CJF services. 
VO3-027 wMC0027 Wayne Cardoza po~dunn1983 


Make old Logical nang seruiese “all mode 
Changes to image activator vectors. 


v03-026 Juno 222 Jeffrey W. 22-May-1983 
oe macro ge vector Me Fin itions of loadable 


~-8 

vO3-025 DMwW4035 DMWalp 26-May-1983 
Intergate new logical’ name structures. 

v03-024 LMP0109 Mark Pilant, 28-Apr-1983 15:53 


Make SCHKPRO an EXEC mode system service to allow examination 
of various system data structures. 
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SOSOSSSoooooooooooooooooooooooooooooooooooooooooo 


SOooooooooooooooooooooooooooooooooooooooo 


Soooooooo 


SEP= 


v03-024 RASO1 


haefer 28-APR-1983 
Add $ 


7 Ron sc ef 
ILESCAN. Add R8 and R9 to SSETPRN register mask. 
4 


4 
F 
v03-023 {Logs Jake Venter 27-APR-1983 
Add SBRKTHRUW. Change SBRDCST to all mode service. 
SBRDCST now uses S$BRKTHRU to do real work. 


v03-022 LMP0099 L. Mark Pilant, 13-Apr-1983 
Add the SCHKPRO system service. 


v03-021 ACG0319 Andrew C. Goldstein, 21-Mar-1983 
Add $GRANTID and $REVOKID services 


V03-020 JLV0234 Jake VanNoy 1-MAR-1983 
Add $BRKTHRU service. 
v03-019 RASO120 Ron Schaefer 25-Feb-1983 


Add support to echo fad ta to SYSSOUTPUT. 
This involves examin 


Sa 


SYS.SRCICMODSSDSP.MAR; 1 


the return code from RMS for $GET; 


n 
if the special status Russ ECHO (not returned to users) 
is found, then create a RAB on the caller's stack and 


execute a S$PUT operation to echo the Line. 
A certain amount of RMS synchronization code was 
shuffled around in order to make room for this. 


v03-018 ACGO317 Andrew C. Goldstein, 22-Feb-1983 

Fix off-by-one in kernel arg vector 
V03-017 RSHO004 R. Scott Hanna 10-Feb-1983 

Added SASCTOID, SFINISH_RDB, and SIDTOASC to system service List 
V03-016 RNGOO16 Rod N. Gamache 1-Feb-1983 

Added SGETLKI to system service List 
v03-015 wMc0015 Vayee Cardoza 12-Jan-1983 

Put back accidentally deleted space holder for RMS synchronization. 
V03-014 DMW4023 brWelp 7-Jan-1983 

Added SCRELNT, SCRELNM, SDELLNM and $TRNLNM 
v03-013 KDM0033 Kathl D. 13-Dec-1982 


hleen Morse 
Correct usage of an interlocked instruction to flush 
the hardware cache queue. 


V03-012 ROW0146 Ralph G. Weber 6-DEC-1982 
Insert routine head 


E 8 
omments for INHEXCP, CHECKARGLIST, 


er 
and EXESCMODKRNLX (MPS$CMODKRNLX). Move things around so 
that EXESCMODKRNL (MPSSCMODKRNL) header comments are near 


EXESCMODRKNL (MPSSCMODKRNL) and ASTEXIT comment 
ASTEXIT. Make bag ic 
or MPSCMOD1 immedia 


; are near 
ernal-mode .PSECT definition for YSCMODK 
y after executive mode code so that new 


k 
te 
code can be inserted ty a wey that preserves routine header 
n 


condit grat assembly, and .PSECT de tions 
and in its 


after AC vip RET so that it is assembled only for MPCMO 


E Backout ROW) 
lace, correct conditional assembly of BGEQU 10$ 


so that it is gcoted before ACCVIO rel Change PCB address 
DSP GL_P 


lookup at KER 


SS 
sang = SETEN SEnVTCR WECTORMeFTMITOhG "UIE SEF POUL NACE Estas POP 


correctly regardless of which processor executes it. 


V03-011 ROW0145 Ralph Weber 29-N0V-1982 
ESEXCPTN (and MPSSEXCPTN) to before ASTEXIT (or 
EXIT) in an attempt to make branch destinations in 
DKRNL reach. 


v03-010 KDM0030 athleen D. Morse 18-Nov-1982 
Add logic to MPCNOD chet ¢ 6) Lows the primary to execute 
es gaa code, without turning into a secondary. 


V03-009 MLJ0099 rtin L. Jack, 20-Oct-1982 19:42 
fs lete v03-002" by. correcting "mode and argument count of 
SSNDJBC and removing temporary stubs. 
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V03-008 RIHO001 Richard o. ate vee’ 1-Jun-1982 
Correct handling of AST q secondary processor to 
avoid losin - AST hott tice ons by incorrectly computing 
PHD$B_ASTLV 

v03-007 KDM0018 athleen D. Morse 30-Sep-1982 
had MPSWITCH Lo Fe to create a kernel system service 
dispatcher for the secondary processor of an 11/78 

V03-006 $TJ3028 Steven T. Jeffreys 26-Sep-1982 
Added SERAPAT cue service vector. 

v03-005 DWT0058 David Thiel 11-Aug-1982 
eh Sa jnete use of R2 Cnite waiting for service 
completion. 


v03-004 JWHOO001 rey 26-Jul-1982 
Add new RMS ron, 1.4 R SRUHNDLR, an peat mented service 
which acts as the Recovery Unit “handler for RMS. 


V03-003 PHLO102 Peter H. Lipman 16-Jul-1982 
Fix new SYNCH Logic to always return SS$_NORMAL, 
Ae access IC0SB error from service, and return 
error status from S$SETEF if event flag cluster went away 


V03-002 PHLO101 Peter H. Lipm 17-Jun-1982 
Add SSYNCH system service ond. tix $Q10W and SENQW to use the 
new code for waiting for the combination of EFN and I0SB 


SGOoOooooooooooooQooooooooooooooooo 


Improve readability of conditionals. 


Add $GETDVIW, SGETJPIW, SGETSYIW, SSNDJBC, SSNDJBCW, and 
SUPDSECW. ALL the waiting versions use common code. 


CHANGE MODE SYSTEM SERVICE DISPATCHER 
MACRO LIBRARY CALLS 
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-SEP=1 SYS.SR cf? ODSSDSP. MAR; 1 
4 .1F B _NOSYNC 
4 SRY MODE SRVNAME , NARG, MASK 
: SRV MODE SRVNAME , NARG,MASK,NOSYNC 
6 : “ENDC =; MPSWITCH 
0 10 TIFT 
1 “BLKL 2 
0 I SENDC 
0 1 *IFF 
0 14 SRV" MODE SRVNAME , NARG MASK 
0 15 -ENDC 
1g [ENDM GSYSSRY 
090 13 : 
00 19 ; GCOMPSRVB = GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 
o008 1 ; GCOMPSRVB SRVNAME,REGISTER_MASKL PREFIX] 
000 g : WHERE: 
0000 4: SRVNAME = SERVICE NAME LESS ANY PREFIX (SYS$, EXE$) 
9900 5: REGISTER_MASK = SYMBOLIC REGISTER MASK, E.G Q10 MASK 
0000 g ; PREFIX = IF SUPPLIED, git PREFIX FOR THE SERVICE NAME. 
9000 Pi IF OMITTED, ''SYS$'' IS ASSUMED. 
0000 9° 
9000 0 -MACRO ete ,REGMSK, PREF IX=SYS$ 
itd 3¢ c IF SWITCH 
9000 TIF Gesu ck 
9000 , -PSECT § OF 00, QUAD 
$000 6 “PSECT $$$000,QUAD 
9000 7 ENDC 
000 4 “ALIGN QUAD 
9000 9 TIF DF LIBSWITCH 
00 40 -1IF  NOT_BLANK, <SRVNAME>,- 
a8 41 "PREFIX SRVNARE : 
00 rk “ENABL LSB 
0 44 COMPSTRT=. 
0 45 .1IF | NOT_BLANK, <REGMSK>,- 
6 eWORD <REGMSK> 
4 *ENDC 
33 4s *ENDE 
4 “ENDC ;MPSWITCH 
00 50 “ENDM  GCOMPSRVB 
3 
50 : GCOMPSRVE = GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR END 
8 33 : GCOMPSRVE QUADWORDS 
0 3 : WHERE : 
i } QUADWORDS = NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 
60 ° 
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OMPSTRT 
GE ,QUADS*8-COMPSIZE 
B  QUADS*8=COMPSIZE 


R ; VECTOR EXCEEDS ALLOCATED SIZE ; 


:MPSWITCH 
GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 
SRVK SRVNAME ,NARG ,MASK 


.MACRO SRVK, SRVNAME ,NARG, MASK 

LIF NDF ,RMSSWITCH 

“IF DF ,MPSWITCH 
CMKSC_'SRVNAME==KCASCTR 

IF sMPSWITCH DEFINED 
CMKS$C_"SRVNAME=KCASCTR 

CHMK #SRVNAME 


RE 

4-3 3? YSCMODKN, BYTE 
= 

ASSUME NARG LE 127 


MA 

YSCMODK ,BYTE 

ORD EXES$' SRVNAME~KCASE+2 
sMPSWITCH 


E 
KCASCTR 
SRVK 
3 SRVE - GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 

»MACRO = SRVE,SRVNAME ,NARG ,MASK 
IF ITCH 


NDF, 
“IF NDF -RMSSWITCH 
CMESC_'SRVNAME=ECASCTR 


tt 4 M@QOOOCOOOOOOSDO0O OOO OO OO O00 090009 09 09 0909 09 SI NI NINN NIN NIA OA AOAAOOOAOr 
NO AE WI OD 09 WOME RIO O00 NO UIE WIND O00 OR UE UND 2 OOD IO UTE UND OOOO dm ete 
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E #SRVNAME 
YSCRODEN BYTE 
—s LE 127 


YSCMODEX ,BYTE 
CTR 


o 
ot 


BYTE 
WORD EXE$' SRVNAME~ECASE+2 


——4 Mm mt OMY 


:MPSWITCH 
SRVE 


MACROS FOR GENERATING RMS SYSTEM VECTORS 
~MACRO RMSSRV et i agt Bes NARG=1, REGS=<R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11>,- 


GSYSSRV SRVNAME,R, NARG. eREGS> »MASK ,NOSYNC 
-ENDM = RMSSRV 


SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 


.MACRO SRVR SRVNAME ,NARG ,MASK ,NOSYNC 
vIF NDF ,MPSWITCH 

c IF NDF -RMSSWITCH 
CMESC_"SRVNAME=RCASCTR 

CHME SSRYNAME 

IF EQ NOSYNC 
“LIF GT <.+#2-RMSSYNC>-127,- 
RMSSYNC= =RMSWBR ;RESET BRANCH DESTINATION 


BRB RMSSYNC 
LFF 
RET 

-ENDC 

-PSECT YSCMODEN,BYTE 


ASSUME NARG LE 127 


COQOCOCCQCOQCQOOCOOCOCOCOOCOOOOCOoOoOoOOoOO 


MASK 


T $$S$RMSVEC,BYTE,N 
ED_WORD RMSS' SAV VNARE- RCASE+2 
T 
T 


-MPSWITCH 
SRVR 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSSOSSOSSOSOSOSOSOSOOSSOOSOSOO 

Fe oe oe oe oe oe at at at at at ot ot at wt te MM UMUMUMUMUMUUMUAUMAUAUAUeUeUetet eee 

NN NNAAAAAAAAAA MUNN BB EERE RE BWWWWWIWronononononorornonono > 

PUNO ODNAU EWN OOO NOAUE WN OOO NAUE WN OO DNAUE WN OUD NAOUEWN—OWO0 
ee . 


SOOoooooooQoooooooooooooooooooooooooooooooOoOoooOooooOO: 


SOOCOCOCOSCOOCCOOoOSOOOCSOSOOSOSOoOOOOSOoOOOSCoOO 


SIPSHECTOR 


~ SYSTEM SERVICE VECTOR DEFINITIONS , 


0 


7 


PPL LLL LEE 


CODDDo NYS 


UE W -OOCONOU 


SSEp-198e 08:40:97 ENE SacIe 
SRVALL = GENERATE ENTRY FOR ALL MODE SERVICE 


» MACRO dog yea NARG , MASK 


w1F MPSWITC 

IF NDF Ang WITCH 
JMP —s ‘ @WEXES SRVNAME+2 
-ENDC 

ENDC  ;MPSWITCH 

ENDM SRVALL 
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if -SBTTL Macros for Loadable Services 
a : LDBSRV - Generate Loadable Service Vector 
0 $3 ; LDBSRV PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
94 ; Where: 
0 95 ; PREFIX - Prefix for system service vector gnery point name 
00 3g : SRVNAME - Service name less any prefix (SYS$,CJF$, etc.) 
0 97 ; MODE = Mode designator for service (K,E,ALL) 
8 38 3 REGS - Register save List 
vy 3 SYN_EFN - Event flag argument number for S$SYNCH 
0 0; SYN_10SB - I0SB argument number for $SYNCH 
3 3 ALT~CHMX - Use same CHMx number as this service 
00 4 
0 Be -MACRO_ LDBSRV,PREFIX,SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
0 5 UF NDF RMSSWITCH 
00 06 IF NDF ,MPSWITCH 
00 07 IF DF LIBSWITCH 
00 08 .PSECT $$$0000, QUAD 
0 9 eALIGN QUAD 
PREFIX" 'SRVNAME:: 
- IF BLANK SYN_EFN 
~BLKL 2 
ae 
Paes 
-PSECT $$$000,QUAD 
«ALIGN QUAD 


N A 
-WORD “M<REGS> 
SRVNAME* MASK = “M<REGS> 
LVEC. "RODE PREF IX,SRVNAME ,SYN_EFN,SYN_IOSB,ALT_CHMX 


-ENDC = ;_- MPSWITCH 

-ENDC ; RMSSWITCH 

-ENDM LDBSRV 

LVEC_K = Kernel Mode Loadable System Service Vector 


LVEC_K PREFIX,SERVICE,EFN,1OSB 


-MACRO LVEC_K, PREFIX, SERVICE, EFN, 1OSB,ALT_CHMK 
“IF BLANK ALT ¢ 
CMKSC_'SERVICE = PREFIX'KCASCTR 


F 

CMKSC_"SERVICE = ALT_CHMK 
.ENDC 
CHMK #SERVICE 
.1F NOT BLANK EFN 
PUSAL #EFN 
PUSHL #10SB 
JMP @#EXESLDB_SYNCH 


PUP IVI PPV IPP IVSUSUS ISVS VSS UST SUSI ISIS SISSIES BE 


PEE PAWN AWN WINIAIPROPUPOPUPOPUPPIP 2 


: 
0 
2 
2 
0 
6 
2 


SOoOoooooooooooooooooooooooooooooooo 
SOOOCOCOCOOOOCOCOCOOOOCOSOSOOCSOSOOPOOOOSCOCSCCOOOOOoOoOoOO 
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FF 
~ENDC 
LIF BLANK ALT. CHK 
ICE ="PREFIX'KCASCTR 
PREFIX'KCASCIR © PREPIXGKCASCTR + 1 
yDSERVICE = ALT CuémK 
-ENDM = LVEC_K 


LVEC_E =~ Exec Mode Loadable System Service Vector 
LVEC_E PREFIX,SERVICE,EFN. (0SB 


-MACRO LVEC_E, PREFIX, SERVICE.EFN, 10SB,ALT_CHME 

“IF BLANK ALT CHM 

rere st "SERVICE = PREFIX'ECASCTR 
CMESC_"SERVICE = ALT_CHME 

END 


CHME  #SERVICE 


COOQOoooooooo°o°oo 
COoQooooooooo°oo 


- IF NOT BLANK EFN 
PUSAL #WEFN 
PUSHL #10SB 
re @#EXESLDB_SYNCH 
RET 
-ENDC 
RET 


~ IF BLANK ALT_CHME 
SERVICE = PREFIX*ECASCTR 
PREFIX’ ECASCTR = PREFIX'ECASCTR + 1 
SERVICE = ALT_CHME 


-ENDM = LVEC_E 


OOOO SOOCSOSSSSOSSCCOSCOOOOOOOOOOOOOOOOOOOOOCOOO 


LVEC_ALL - Mode of caller Loadable System Service Vector 
LVEC_ALL PREFIX,SERVICE,EFN,1OSB 
space LVEC OL PRGrIx. SERVICE ,EFN, 10S8,ALT_CHMK 


Ht xe 
- IF NOT BLA 
NERROR 


Sete Ge Se Se 


FN 
aad ; SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 
-ENDM = LVEC_ALL 


OOOCOOCOOCOOOoOOOOoOoOOOooOSoOOoOoOSoOoOS 


BIE WN OOD NOA UE WN OOO NAME WIN SO OD NA UE WN OOD NOU SW OWONOUSE 


OOO OOO 00.0009 09 09 09 09 09 09 09 SI NIN NSN NNDB DPA DAD TUT 
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Sy al ah ab Ab Ab Ab Ab Ab db db db db db db db dh hb bbb hb hb dh dh sh sh sh sh sb sh shal 


oo 
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SYSSVECTOR - SYSTEM SERVICE VECTOR DEFINITIONS 16-SEP-1984 01:28: AX/VMS Macro V04-00 Page 1 SY; 
tae tts SYSTEM SERVICE VECTOR DEFINITION mie} P 83:28:98 SYS.SRCJCMODSSDSP.MAR; 1 - 18, vos 
1118 ; .SBTTL SYSTEM SERVICE VECTOR DEFINITION 
1114 : 
1113 ; DEFINE ALL SYSTEM SERVICE VECTOR POSITIONS | 
te 
11 PSECT $$$0000,QUAD, ABS 
80000000 1124. =x8000000 5 BIASED AT THE START OF SYSEM SPACE 
11 ¢ VECB :VECTOR AREA BASE 
HE 
1 5: Q10 AND WAIT COMPOSITE SERVICE 
00 11 5 : THE Q10 AND WAITFR COMPOSITE SERVICE OCCUPIES THE FIRST TwO 
909 11 8 ; SYSTER SERVICE VECTOR POSITIONS. IT IS CONSTRUCTED BY 
900 1139 ; TWO DISCRETE CHMK INSTRUCTIONS, ONE PERFORMING THE QI0 
900 1140 ; ANDY THE OTHER PERFORMING THE WAITER WHICH RELY UPON TH 
000 1141; COMPATIBLE ARGUMENT LISTS OF THESE fwO SERVICES. WAITFR HAS 
000 1148 ; A SINGLE ARGUMENT, THE EVENT FLAG, WHICH IS THE FIRST ARGUMENT 
000 1143 : IN THE G10 ARGUMENT LIST. 
800 1148 
000 1146 GCOMPSRVB agtow Q10 Al 
000 114 0_MASk ! WAITFR_MASK i tCREF OAASK ! SETEF_MASK> 
0010 1128 GCOMPSRVE™. SRESERVE 2 QUADWORDS "FOR VECTOR 
010 1159; 
0010 1399 ; CONDITION HANDLER DISPATCH VECTOR 
001 116¢ : THE FOLLOWING VECTOR IS INCLUDED IN THE SYSTEM VECTOR SPACE SO THAT BOTH 
0010 1163; HARDWARE DETECTED (EXCEPTIONS) AND SOFTWARE-DETECTED (SIGNALS) CONDITIONS 
0010 1164 : CAN BE DISPATCHED FROM THE SAME CALL INSTRUCTION. THIS IS NECESSARY SO 
010 1165 ; THAT THE STACK SEARCH ALGORITHM AND THE UNWIND SYSTEM SERVICE CAN DETECT 
01 1366 ; AND PROPERLY PROCESS MULTIPLE ACTIVE SIGNALS AND/OR EXCEPTIONS. 
010 1168 ° 
91 1189 .ALIGN QUAD 
10 1174 SYSSCALL_HANDL:: ;CONDITION HANDLER DISPATCH 
80000018 001 1185 “BLKQ. 1 TRESERVE SPA 
a 1191 
1198 t COMMAND INTERPRETER DISPATCH VECTOR 
8} 1182 + THE FOLLOWING AVECTOR 1s INCLUDED IN THE » SYSTEM VECTOR SPACE SO THAT DIRECT 
18 1195 ; CALLS CAN BE MADE TO THE CURRENT COMMAND INTERPRETER 
1 1196 ; THE ADDRESS OF ITS SERVICE ROUTINE. 
18 1198 ° 
1 1198 .ALIGN QUAD 
1 1201 SYSSCLI:: : COMMAND INTERPRETER DISPATCH 
80000020 0018 1206 .BLKQ 1 TRESERVE SPACE 


WITHOUT HAVING TO KNOW 


aa be = 
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ae tty SYSTEM RERVICE VECTOR DEFINITION ety 7 83:25:98 oe SRCICMODSSDSP.MAR; 1 ve WD v0é 
1213 ; 
13 ; DEFINE REMAINING SERVICES 
1216 ° 
1 i$ GSYSSRV AD Ras ;ADJUST OUTER MODE STACK POINTER 
118 Eno Te 
1220 GSYSSRV RbUOSest 2 SADJUST WORK Ne SET LIMIT 
028 1221 RL -RS> SREGISTERS R2-R 
1 é GSYSSRV AL one K,4,- SALLOCATE DIAGNOSTIC PAGE 
155 GSYSSRV AL Re RS ae As, gehen yt He eye 
1225 anos Rg. fe, RSR6> tREGISTERS. R2- 
40 1 6 GSYSSRV as éF ae ; ASSOCIATE COMMON EVENT FLAG CLUSTER 
040 1 R RA RS -R6,R7,RB,R9,RIO,R11>_ REGISTERS R2-R11 
048 1 8 GSYSSRV A aSct iN. :CONVERT TO ASCII TIME 
094 1 R3. ae ‘ag: SREGISTERS R2-R6 
050 1230 GSYSSRV A ssiow K,4,- ASSIGN 1/0 CHANNEL 
0050 1231 ay Ah ‘Ge R6,R7,RB,RI,RI0,R11> s REGISTERS R2-R11 
058 1 : GSYSsRV 8 intl g-° SCONVERT TO BINARY TIM 
058 1 me. Re os R6,R7,R8> :REGISTERS R2-R8 
060 1234 GSYSSRV ¢ ANE ELK K.{,- [CANCEL 1/0 ON CHANNEL 
060 1235 R3-RL.RS.R6.R7.RB> ZREGISTERS R2-R 
0068 1 36 GSYSSRV cay AN K,2,- [CANCEL TIMER REQUEST 
0068 1 nen: av) R5> SREGISTERS R2-R 
070 1 38 GSYSSRV CAN WAK.K,2,- [CANCEL WAKE UP REQUESTS 
007 1239 2,R3,R4,R5> SREGISTERS R2-R5 
07 1240 GSYSSRV cRnPSC K,{2 i CREATE AND MAP SECT 
0080 i 3 GSYSSRV cL at MAS, sedan iets Meet e aR 5 nec STERE Raat 
a8 1 tg 2.n3. Re RS> ‘REGISTERS 
088 1244 GSYSSRV CMEXEC.E,2,- i CHANGE MODE TO EXECUTIVE 
088 1245 mee TREGISTER R4 
09 1 46 GSYSSRV CMKRNL,K.2,- [CHANGE MODE TO KERNEL 
$98 154 GSYSSRV cLRer CLEAR EVENT. FLAG 
009 ‘3 samen Ta pera Ra’ RS> :REGISTERS R2-R9. SEE WAITFR COMMENTS. 
A b 
BA : 2) GSYSSRV ak AS .R6,R7> REGISTERS ere INFORMATION 
Bh eT sasay che cet tet eo tL eal ase 
O88 1386 GSYSSRV cr Ae ar sf3:86,07 ,RB> pees 
8B 3§ otal cr RoR ro as. R6,R7,RB,R9 “ATO AI1D REGISTERS R2-R11 
o¢ 3 okie cr Re ARS. ay) £6" R6,R7,RB oA Ut R2-R11 
ie alae 1 
YSSRV DA SDISASSOCIATE EVENT FLAG CLUSTER 
DO 1364 ey SRY ORR REL AS RGAR7.RB, avi Rionatys ;REGISTERS R2-R1 
DB 1265 GSYSSRV at *K,2,> SDEALLOCATE DEVICE 
DB 126 R2,R RA RS RB> SREGISTERS R2-R5,R8 
AR dea CEE RCT 
E 1 8 GSYSSRV pL Astix,$,- [DECLARE AST SYSTEM SERVICE 


j 
enemas 


13 /VMS Macro v04-00 Page 14 
5 FINITIONS 16-SEP-1984 x AR; 1 (1) 
StSSyECTOR SYSTEN SERVICE VECTOR DEFINITION wSEp=1984 05:40:89 LSvgveRcTeODSSDSP OR 
voN~ 3,R4,R5> ;REGISTERS R2-RS 
EB 1270 Seta c i DECLARE EXIT _HANDLER 
FO 197 sehbbaidt sn ZREGISTERS Re-R 
FE iste RV DELLOG.ALL ‘DELETE. LOGICAL, NAME 
| re ise bhaues CRD, Rg Ree Ao R6,R7,R8> [REGISTERS R2-RB CJF 
66 1598 mBx-K 1 = :DELETE MAILBOX ct 
: fe peer oF, RSIR Rd ASD meeisrens 7 aH 
108 | i en oy nM R5.R6,R7> IMEGISTERS RRS aH 
119 | : GSYSSRV DE SELVA “RL-RS,R6,R7>, = REGISTERS Reh? cat 
110 4 ce MASK ‘DELETE. GLOBAL SECTION at 
ie | : aabbade + i: rd *45,R6.R7-RBRORIOS REGISTERS RouotO 3 
118 1 8 bub : DEALLOCATE DIAGNOSTIC PAGE at 
150 1985 Se nh AS .R6,R7> IPOS] te chatter Cvet cuusven 3 
01 5 1386 ahianad OL LCErG nd R5,R6,R7,RBRORIORIIS “REGISTERS ROCRIA cut 
oi 1 } 5S Ft. UPDATE SECTION FILE CJF 
130 1688 ssohhipue: upp RE RACRS,RG.R7.RE> :ROCRB aT, 
0130 1289 SNOERR. K{.- ;SEND MSG TO ERROR LOGGER rat 
Bisa 1509 abiauade Rt, RS> {REGISTERS R2-R5 a 
O14) | 35 esyssnv EXIT KT. REGISTER R4, ALWAYS ALLOWED! cut 
0140 129 eter RES, ZEXPAND PROGRAM REGION at 
0148 1294 OS ySS RN EDR SRS, R5,R6,R7,R8> :REGISTERS R2- CF 
0180 1396 GSYSSRV FAOLALL {FORMAT ASCII OUTPUT Cat 
0130 1397 us RE: ACGRS .R6R7.RB.RS, {FORMAT ASEI OUTPUT WITH VALUE LIST 3H 
0188 1399 warren oer athe R5,.R6,R7,R8,R9, sRIQ.RI1> EREGISTERS R2-R1 co 
o1e8 leet sine ios a eT REGISTERS. R2-RS at 
160 1301 To tae ae SIMAGE STARTUP CJF 
O18 130@ GSYSSRV In TALALL, REGISTERS HOME a 
O17 1308 ner Sup. Ra RS .R6,R7,RB,RORIORII> REGISTERS RO-R11 iH 
O18 | $ eareeey & erfih ME. f.= ca a ENC 
et ie uposecy [UPDATE SECTION AND WAIT fe 
180 : 09 GCOMPSRVG DSEC_MASK ! GETJP1_SYNCH_MASK> ENG 
1317 GCOMPSRVE. . 
183 1 18 GSYSSRV HIBER K gots, Tse: R2-RS Hed 
188 131 ii IMAGE ACTIVATION ENC 
190 1331 tenia” Roca R5.R6.R7.R8, -ROLRIO-RIT>. GREGISTERS R2-R11 EN 
138 1858 sisted uk cKBh aah Ro AS.R6.R7.R8> REGISTERS RO-RS ENC 
198 1 peter’ {LOCK PAGES. IN WORKING SET Ext 
1A 1326 Grrerey eg CRO RS. nd RS.R6,R7,R8> :REGISTERS R2-RB GE 
1AQ 1325 MAP GLOBAL SECTION GE! 
As 1358 re ets RA R5.R6,R7,RB,RORIO,RI1> GREGISTERS R2-R11 CE 
1A8 sit fit g : RoE WORKING SET GE! 
1B ass Be YSERA ORO RS-RG.AS.RO,R7,RE> EROCR GE] 
180 | uA ntince. 2 SCONVERT TIME TQ NUMERIC GE! 
188 1380 GSYSSRV N AS. Ad AS, R6,R7> {REGISTERS R2-R7 ce! 
if : § aetsstted Smoot -R4,R5,R6.R7.RB,RI-R iourtis REGISTERS R2-R11 
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J 3 otEpo AX/VMS Macro ee > RAR: 1 (1) 
, TEM. SERVICE VECTOR DEFINITIONS "SrSEp=1984 04:40:97 Fever eaclemoDss 
51 SSYECTOR SVSTER SERVICE VECTOR DEFINI TION QUEUE 170 REQUEST 
Woe=06 1€8 1334 GSYSSRV Q cna S.A RRS. R6,R7,RB,R9, R EAS EVENT FLAG 
108 1335 TERS Re=R 
159 1388 GSYSSRV REAG ae RS REGIS) PROCESS. 
18 8 GSYSSRV R RESUME M ‘. :REGISTERS R 
1D8 1 Now STERS_R2-R7 
18) 1840 GSYSSRV nu aia nd R5,R6,R7> SEND MSG TO SYMBIONT MANAGER 
18 t orent ne i: 3.84 AS, Mt SCHEDULE pane 
134 ' STERS Re= 
iF 1 44 GSYSSRV nae R4RS.RO.R7_RB, ROD EREGIS ENABLE” SEnvIce 
4 et GsvssRv SETA Mt i> :REGISTERS R28 
178 ‘$ DRS, R ;SET EVENT Bu RS. SEE WAITER COMMENTS. 
18 | is GSYSSRV SE ste gh°as> SET EXCEPTION vécTOn 
oe Miles 
a1 i poe rte 7R4,R5,R6,R7_RB, A oft FOGEN RetOyeRy AST 
Bete 183? GSYSSRV Sef ETRA Kyeee REGISTERS RO-RS 
18 22 SRV SEI nine K o'RIO.RIT> EREGISTERS R2-R11 
8 0 1356 GSYS Re, nt AS. R6,R7,RB,R Ser proces PRIORITY 
Rig sum SUS, eet ech I 
0 1360 GSYSSRV : ‘de Rass, R6,R7_R8, MV roET RESOURCE WAIT MODE : 
RV MLK, :R MO 
Bh ie Esteony attend: A Tene ReSEMMCE EAA ORE 
40 1364 Be YS SRY ELD ELC MASK SET PROCESS SUAP MODE 
Bo ies corsa teu Huang 
8 136 PND.K,2,- : TERS R 
; 50 ! rt: GSYSSRV ue ne: RA “Ai Tanta LOGICAL NAME 
0 60 1378 sabi uLKeh R M is. R6,R7,RB> :REGIST PAGES FROM WORKING SET 
68 1374 Ha eas nb AT .ROD {Uw tnD: PROCEDURE CALL STACK 
1375 ont - REGISTERS Re-R 
? 1376 GSYSSRV <R2 RS RS. Rea HMATT FOR EVENT F i ee EVER useD 
Fe 1809 sisi Me ets nso STHE AMS SYCHRO NIZATION CODE MU 
: 
1380 SWAKE PROCES 
: GSYSSRV WAKE EZ) er ath AND OF EVENT FLAGS 
1384 GSYSSRV WF arin meee ae sUATT TOR LOSER OR OF EVENT FLAGS 
eaneena 8 kala in »R6> Arelstens 1). TERMINALS 
= ° ie] - 
7 8 GSYSSRV ar es Mk ead EREGISTERS RE-RE ce 
RB 1890 GSYSSRV DELEMALK,Se- 
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v04-000 SYSTEM SERVICE VECTOR DEFINITION -SEP-1 :40: SYS.SRCICMODSSDSP.MAR; 1 (1) 
A 33 GSYSSRV SeTPen K,4 See ace Fa ULT MONITORIN 
Ag 1 38 <R2,R3,R4,R :R6,R7,RB,RY, aie page FA EGISTERS OB Ne 
BO 1394 GSYSSRV GETASG ALL - GET "RESSAbE 
BO 1395 2,R3.R4,R5,R6,R7,RB,RO-R10,R11> : REGISTERS R2-R11 
B8 1 36 GSYSSRV DERCM Kei, !DECLARE ERR ROR 06 MAILBOX 
B8 139 *R4,R5> SREGISTERS R2-R 
co 1 98 GSYSSRV Chae Ra HoK,1,- ‘CANCEL EXIT HANDLER 
CO 139 <R2,R3, Re RS> GREGISTERS R2-R5 
C8 1400 GSYSSRV cet TCHN.K,5,- iGET CHANNEL INFORMATION 
5 12 GSYSSRV GE Re, Rb, aunhanagel ‘e Peach IReORAATION 
Dd 14 j gEaPE y R4_R5,R6,R7,RB_RI, AL ARE “REGISTERS R2-R11 
D& 1404 GSYSSRV Gets ?,- iGET 108 PROCESS INFORMATION 
D8 1405 <R2,R3,R4,R +R6,R7,RB,R9,RIO,R11> {REGISTERS R2-R11 
EO 14 6 GSYSSRV PUTASG ALL !PUT FORMATTED ERROR MESSAGE 
0260 140 <R2,R3_RGLRS_R6,R7.RB.RO_RIO,R11> :REGISTERS R2-R11 
0 E8 1408 GSYSSRV EXCASG. ALL z+ ‘OUTPUT EXCEPTION SUMMARY MESSAGE 
E8 1409 <R2,R “RA R5°R6,R7,RB8,R9.R10,R11> ;REGISTERS R2-R11 
O2FO 1410 GSYSSRV SND NDACEE :SEND MSG TO ACOUNTING MANAGER 
O2FO 1411 ZR2,R3_RGRS.RO-R7.RB.RO_RIO.R11>_ :REGISTERS R2-R11 
O2F8 1418 GSYSSRV SEI Tin {,- 'SET SYSTEM TIME 
O2F8 141 *R4.R5,R6,R7,R8,R9-RIO,R11> REGISTERS R2-R11 
0300 1414 GSYSSRV Sf er K,4,- 'SET PRIVILEGES 
0300 1415 <R2,R Ri RS,R6,R7,R8> :REGISTERS R2-R8 
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SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
$1s$GL ASTRET CONTAINS THE VALUE OF THE RETURN ADDRESS 
E CACL INSTRUCTION USED TO DISPATCH AN AST. THIS VALU 
: BE EUseD WHEN SEARCHING UP THE STACK FOR THE AST CALL FR 
PSECT § $$$0000, QUAD 
SYSSCLRAST:: : ;CLEAR ACTIVE AST 
“ALIGN QUAD : 
SYSSGL_ASTRET:: : 


-BLKL 1 
silat pel “Wa sADDRESS OF CORE COMMON DESCRIPTOR 


FR 
E 
AM 


Serve Ge Ge Ge Ge Ge 


OM 
CAN 
E. 


80000310 


80000314 
80000318 
ENTRY VECTOR 
: TO SHARE EXC 
: THIS ENTRY I 


DITION HANDLER SEARCH. LIBSSIGNAL USES 
rib: TO SEARCH FOR AND CALL ag ei 


; RATHER, IT IS JUMPED TO. NO RETUR 


»ALIGN QUAD 
SYSSSRCHANDLER: : 
-BLKQ 1 


80000320 RESERVE SPACE 


; NOTE THAT THE CODE_IN PSECT $$$000 AT THIS POINT CANNOT EXCEED d's sate 
3 WITHOUT MODIFYING THE RMS Te ese tala CODE WHICH PRECEDES 


VECTORS WHICH CANNOT BE M 


eb a ea ds ws 2 ss ts 4 a hs td 4 a — 
Ne ae ee ae ee ee ee ee ee ee ae ee ee ee oe eae ae oe et oe tot et ot ee 
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ita ty SYSTEM SERVICE VECTOR DEF IN y tou g- SEP 138 8}: £8: A EeyS. BRCI MO ODSSDSP.MAR: 1 ° (1) 

14 : 

1 ; Set up the base for the RMS service codes. We leave a hole so that 

480 ; other £795 mode ovate services can be defined later in pis gnoqute. 

1481 ; The hole is defined by the offset between ECASCTR and RCASC it 

6 1? ; is checked with an ASSUME at the end of all service Sefinitions. 
1487 ° 
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RMS SERVICES 


oe 
+ 


RMS SYNCHRONIZATION ROUTINE 


THE FOLLOWING ROUTINE IS USED BY THE VARIOUS RMS SERVICES IN ORDER 
{8 vi 1/0 COMPLETION. THE ROUTINE IS IN THE VECTOR AREA IN ORDER 
TO WAIT AT THE CALLER'S MODE at ALLOWING AST ACTIVITY FOR EITHER 


USER OR SUPERVISOR MODE, OR BOT 


THE FAB/RAB_IS CHECKED FOR A LEGAL BLOCK ID A_1 OR 3, AND 
AN ERROR RETURNED IF INVALID. THE STRUCTURE 18 For REPROBED. 


pore UAT EACH RMS SERVICE VECTOR TERMINATES WITH A BRANCH TO THIS 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Sete te 


THIS ROUTINE ASSUMES THAT THE FOLLOWING REGISTERS HAVE BEEN SET BY THE 
EXITING RMS EXEC-LEVEL CODE WHENEVER A STALL I$ REQUIRED 
R3 EFN TO WAIT ON 
RB RAB/FAB ADDRESS TO WAIT ON 
RG (RASWAIT BR ENTRY POINT ONLY, SUAIT SERVICE) FLAG FOR WAIT TYPE 
(0 = SAME RAB, 1 = DIFFERENT RABS) 
SECT -$$$0000, QUA 
-BLKB “*X320-<, OVECBASE> 
BLKB “X48 ;THIS TAKES THE SPACE OF THE CODE 


;WHEN GENERATING THE GLOBAL SYMBOLS 


SYSSVECTOR = SYSTEM SERVICE VECTOR DEFINITIONS 16-SEP-1984 AX/VMS 0 V04-00 Page 20 SY! 
ia tty SYSTEM SERVICE VECTOR DEFINITION g- -SEP- 13be 8}: 28: 98 SYS.SR ci? ODSSDSP. MAR: 1 ° 9) v0 
134 
} i ; DEFINE RMS SERVICES 
1629 ; 
19 9 : HIGH USE RECORD OPERATIONS 
$ 16 3 RMSSRV DELETE ;DELETE A RECORD 
16 «NLIST CND 
70 1634 RMSSRV FIND sFIND RECORD 
78 1635 RMSSRV FREE SRELEASE LOCK ON ALL RECORDS 
80 16 § RMSSRV GET [GET A RECORD 
1 RMSSRV PUT ‘PUT A RECORD 
6 30 16 § RMSSRV READ ;READ A BLOCK 
98 16 RMSSRV RELEASE ;RELEASE LOCK ON NAMED RECORD 
0 Ad 1640 RMSSRV UPDATE sREWRITE EXISTING RECORD 
AB 164 RMSSRV WAIT ;STALL FOR RECORD OPERATION COMPLETE 
0380 163 RMSSRV WRITE ;WRITE BLOCK 
0388 1923 > LOWER USAGE OPERATIONS 
038 1696 RMSSRV CLOS sCLOSE FILE 
030 165 RMSSRV CONNECT ;CONNECT RAB 
03C8 1658 RMSSRV CREATE sCREATE FILE 
0300 1659 RMSSRV DISCONNECT ;DISCONNECT RAB 
03D8 1660 RMSSRV DISPL DISPLAY FILE INFORMATION 
03E0 1661 RMSSRV ERASE yERASE (DELETE) FILE 
O3E 166¢ RMSSRV EXTEND sEXTEND FILE ALLOCATIO 
O3r0 166 RMSSRV FLUSH sFINISH 1/0 ACTIVITY FOR STREAM 
O3F8 1664 RMSSRV MODIFY sMODIFY FILE ATTRIBUTE 
0400 1665 RMSSRV NXTVOL sNEXT VOLUME 
0408 1666 RMSSRV OP sOPEN FILE 
0410 166 RMSSRV REWIND ;REWIND FILE 
0418 1668 RMSSRV SPACE :POSITION FOR TRANSFER 
04 1669 RMSSRV TRUNCATE ; TRUNCATE FILE 
4 1670 RMSSRV ENTER sENTER FILENAME INTO DIRECTORY 
04 0 1671 RMSSRV PARSE sPARSE FILENAME SPECIFICATION 
4 167¢ RMSSRV REMOVE ;REMOVE FILENAME FRO RECTORY 
440 167 RMSSRV RENAME,NARG=4 : RENAME A FILE 
448 1674 RMSSRV >SEARCH A FILE DIRECTORY 
450 1675 RMSSRV SETDDIR NARG=3,NOSYNC=I 
458 1676 SET DEFAULT DIRECTORY STRING 
458 1677 RMSSRV SETDFPROT,REGS=<R2,R3>, NARG=2,N 
46 1678 SET DEF AULT fire. PROTECTION MASK 
460 167 RMSSRV SSVEXC,REGS= © .NOSIN 
468 1680 GENERATE SYS SERV EXCEPTION 
46 1681 RMSSRV RMSRUNDWN,NARG=2,NOSYN 
4 14 é PERFORM RUNDOWN ON RMS FILES 
470 16 RMSSRV RMSRUHNDLR, nar=5 NOSYN C=1 
478 1684 MS Recovery Unit Handler 
478 1685 RMSSRV FILESCAN,NARG=3, NosyNc= 
ri 19 $ :Perform syntax check for file specs 
. i 3 ; ADD NEW RMS SERVICES IN FRONT OF THIS CODE! 
4 1690 ; Now we add special non-vector code. Because of the CASE instruction 
4 1691 ; used at the front of RMS, this code (and any future additional code) 


ro V04-00 
ODSSDSP.MAR;1 


ac 
cJCM 


VMS M 
SR J] 


SEp-19b4 04:00:97 LSvs 


3 must be the Last element of the RMS area. 
K 
K 
R 
$ 
Y 
R 
R 
$ 
R 


‘§ 


I 
0 
E 
$s 
G 
T 
0 
; START OF SYSTEM SERVICE VECTOR REGION 2 


Helper branch to error processing 
D 
E 
T 
I 
K 
Ss 
R 
R 


1 
Vv 
T 
S 
A 
M 
0 


M 
M 
C 
R 
H 
I 
Y 
»PSECT $$$0000,QUAD 
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; Note: Service codes for exec mode services in this region a 

; reserved by the offset defined above between RCASCTR and ECASCTR. 
3 it se we - at the end of this section breaks, the offset must 
3 ed. 


GSYSSRV ENG. K41 ; ENQUEUE 
‘RS he R5,R6,R7,R8B,RI, /R10,Ri1> ; REGISTERS R2-R11 
GSYSSRV OE8 K,4,- : D 
RS,R4,R5,R6,R7.RB.RO_LRI > ; REGISTERS R2-R11 
GCONPSRVE. Fidy 


ND 
O MASK ! WAITFR_MASK A K ! SETEF 


MASK> 
GCOMPSRV 2 UADWORDS FOR VECTOR 
GSYSSRV SETSSF, K,1,- tem SERVICE FILTER MASK 
GSYSSRV SETSTK, K,3,°> 


<R2,R3,R4>- 
GSYSSRV oe TSYI-K/? a 6. at at a9" 


GSYSSRV Inghix: “ALL 


EGISTERS R2-R11 
ApBRESS SELOCATION FIXUP 
REGISTERS R2-R5 


: eeeakanaene TEMP seeaneeeee 


oR 


ntact 


ze 
aw. 
ee 
Ve 
a 
ae 
. 

4 


SET DEVICE TEMP xeeeennaee 


.- DEVICE AND VOLUME INFORMATION 
R5,R6,R7,R8, RO, Rio. nit» ; REGIST 
s 


GCOM ; 
esvesky "GEIDYI 8,- 
GCOMPSRVB “GETD 
<GETDV 
GCOMPSRVE 
GCOMPSRVB GETJ I 


Pp 
GCOMPSRVE 
vonctatease ©) 


—DK 


oz ‘ ~z¢—zenzec—-zer => —S 


GEf DEVICE INFORMATION AND WAIT 
K ! GETUPI _SYNCH EMASK> 


Jee 


GET JOB/PROCESS INFORMATION AND WAIT 
K ! GETJPI _SYNCH ~MASK> 


GET SYSTEM INFORMATION AND WAIT 


m 
~ 
r— 
> 


I 


> > 
fi | 


NDJS K ! GETJPI_SYNCH -MASK> 
GCOMPSRV VE 
GCOMPSRVB SYNCH, : 

<WA K ! CLREF =fask é SETEF 


WAITF ASK> 
GCOMPSR ve RESERVE™ " QUADWORDS FOR VECTOR 
GSYSSRV Ro 036° GEN enaae A SECURITY ERASE PATTERN 
rear ouch NAME TABL 


GSYSSRV CRELNT 
R3, Ri BS. R6,R7,R8, Ro /R10,R1 REGISTERS RO-RI 
GSYSSRV cR ina ex,5,- CREAT ATE LO 
oR3, Ra RS.R6.R7.RB.R9- R10,R11> tf: 


GSYSSRV OE ina’ Kk DELETE L 
“R3_RG_RS.RG.R7_RS, RO, het Ai -R 
GSYSSRV TRCN K 


ae iat EFN AND IOSB 


> 
¥ 


par 
m 
Zz 
mn" 
Po) 
~ 
uy 
P+] 
_ 
= 


Ra, R5.R6,R7.R8,R9, ‘ab Ri cK 


R2-R11 
7% GCOMPSRVB Reet - : GEf LOCK’! 


ON AND WAIT 


SOD OODDOOCMMWOOCOOCOWDMDWOOCOCOCCOCWMDMDOOCMODDOOCDWDOOCMODOOCODBMOOOOOOOOO0O0O 
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LDPRDPEDPLDPEP DPD DP DDD DDD DDD. DEDEDE DDD DDS DDD DDD DDS TTI 


77 
77 

77 

77 

77 3 

77 ; 

77 v 
77 1_ 
78 
78 P 
78 1. 
79 
79 " 

0 TSYI_ ! GETUPI _sYNCH “MASK> 

GCOMPSRVE 

GCOMPSRVB B gp ac : SEND TO JOB CONTROLLER AND WAIT 
; 4 

R. 

6 

6 

6 

6 

é 

7 <R2,R3, “Rd RS.R6.R7._RB, Ro" R10,R11> ;RE 
7 GSYSSRV GE TUK f 


ROMAOMOOO 
CO-OP 
DNDN or wer 
== nm” 
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em 
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OOOO NINA OUI SWI SS OS 
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DNA WANE WI OOD NAME WIN OS OD NAME WWM SO OD NOA NOUS WE WIN 0 OONOUS UN OOONUI YO 
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<GETLKI_MASK ! WAITFR =MASK ' CLREF_MASK ! SETEF_M 
GCOMPSRVE “a RESERVE 2 QUADWORDS FOR VECTOR 
GSYSSRV ASCTOID ZASCII_ TO IDENTIFIER CONVERSION 
oR 83 afi RS,R6,R7,RB.RO-RIO.R11> :REGISTERS ROR | 
GSYSSRV FN nisi RDB,E.1,- SFINISH RDB CONTEXT STREAM 
“Ree ) *R&,R7,RB,RO_RIO,RI1> REGISTERS R2-R11 
GSYSSRV 1 DTA i te ‘IDENTIFIER TO ASCII CONVERSION 
R3,R RS, R6,R7,RB,RO.R10,R11> :REGISTERS R2-R11 
GSYSSRV ante 11,- ;BREAK THROUGH WRITES 
ae Uehe R5 (RG, R7,RB,R9.R10,R11> ;REGISTERS R2-R11 
GSYSSRV GRANT LG, ALL. _ GRANT IDENTIFIER TO PROCESS 
<R2,R5> sREGISTERS R2-R 
GSYSSRV REVOK{D, ALL,5,- + REVOKE IDENTIFIER FROM PROCESS 
SREGISTERS R2-R 
GSYSSRV cnn 1 i GENERAL PROTECTION CHECK ROUTINE 
rd, «fs. R6,R7,RB,R9,RIO,R11> REGISTERS RO-R11 
GCOMPSRVB a TES BREAK THOUGH WRITE AND WAIT 
ccompsaveere" RUS MASK ! GETUPI _SYNCH. MASK> 
GSYSSRV GETQUI :GET QUEUE INFORMATION 
Rd, 188, R6,R7,RB,R9_R10,R11> sREGISTERS R2-R11 
GCOMPSRVB RET aaty !GET QUEUE INFORMATION AND WAIT 
<GETQUI MASK ! GETJPI_SYNCH_MASK> 
GCOMPSRVE 2 
CJFSKCASCTR = 16424 
LDBSRV CJF$, ALLUDR, K,  <R4> 
LDBSRV CJF$. ASSJNL, Kk, <R4> 
LDBSRV CJF$, CONUIC, Ki; <R4> 
LDBSRV CJF$. CREJNL K,  <R4> 
LOBSRV CJFS, DEAL DR, K,;  <R4> 
LDBSRV CJF$. DEASJNL. ALL, <R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
LBBERY CUES. DECC ke eRe 
; i »  <R4> 
LDBSRV CJF$, DMTJMD. K,  <R4> 
LDBSRV CJF$. DSPJNL. Ki <R4> 
LDBSRV CJF$. GETJNL, K,  <R4> 
LOBSRV CJF$. GETRUI. K, <R4> 
LOBSRV CJF$. MODFLT, K, <R4> 
LDBSRV CJF$. POSJNL. K,  <R4> 
LDBSRV CJF$. READJNL, K,  <R4> 
LDBSRV CJF$, RECOVER, Ki <R4> 
ERY re: ewe ESRB 
LOBSRV CJF$. CONJNLE K; <R4> 
LOBSRV CJF$. DCNUNLF. K,  <R4> 
LDBSRV CJF$. FORCEJNLW, ALL. <R2.R3.R4.R5.R6.R7.RB.RO_RIO.RI1> 
LDBSRV CJF$. WRITEJNL, ALL. <R2.R -RGARDAROARZ AR *R9.R10.R11> 
LOBSRV CES. WRITEINLY, LL; <r A. 7R4.R5.RO.R7.R8,.RO,.RIO.RI11> 
LOBSRV CJF$. DATJMDU, *  <€R4>, 4, 5, DMTIMD 
LDBSRV CJF$. MODFLTW. K;  <R4>, 4; 5; MODFLT 
LDBSRV CJF$. POSJNLW, K,  <R4>, 4. 5° POSINL 
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v04-000 REGION 2 OF SYS. SERV. VECTOR DEFINITION 5-SEP-1984 83:28:98 YOYS SRCICHODSSDSP_MAR; 1 wer a vO! 
0 1959 LOBSRV CJF$, READJNLW, K, <R4>, 4, 5, READJNL 
1 ! LOBSRV CJFS$, RECOVERW, K,  <R4>, 5, 6, RECOVER 
1 3 
00004010 13 ? RUFSKCASCTR = 16400 
1965 ° LDBSRV RUF$, REENTERRU, KK, <R2,R3,R4,R5,R6> 
1398 LDBSRV RUF$, STARTRU, K, <R2,R3,R4,R5,R6> 
19 LOBSRV RUFS, PHASE1, K, <R2,R3,R4,R5,R6> 
40 19 § LDBSRV RUF$, PHASE K, <R2,R Sr + 
4 196 LDBSRV RUF$, CANCELRU K, <R2,R3.R4,R5.R6> 
3 1 ; LDBSRV RUF$, MARKPOINTRU, K, <R2.R +RG»RB RO? 
197 LOBSRV RUF$, RESETRU, K, <R2,R35,R4,R5,R6> 
1 ts LOBSRV RUF$, DCLRUH, K, <R2,R3,R4,R5,R6> 
197 LDOBSRV ®UF$, CANRUH, K, <R2,R3,R4,R5,R6> 
5 1308 . LDOBSRV RUF$, RUSTATUS, K, <R2,R3,R4,R5,R6> 
5! 1308 > End Recovery Unit consists of a two-phase commit, so we call each 
bas 130 : phase separately. 
O87 1978 ; pe ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit 
8 1991 GSYSSRV MTACCESS,K,6,- 3Mag tape installation specific a ti 
bbe 1336 <R2,R RETR OT Rut sREGISTERS R2- ij .erve ore 
0890 199% ; 
tts 1995 : End of system service vector definitions. New system services are 
890 1996 ; to be added at this point. 
0890 1997 ; 
0890 2003 
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SNDJBC$ 
SNDJBCS 
SNDJBCS 
SYSSADJWSL 
SYSSALCDNP 
SYSSALLOC 
SYSSCMKRNL 
SYSSCNTREG 
SYSSCONNECT 
SYSSCREATE 
SYSSCRELNM 
SYSSCRELNT 
SYSSCRELOG 
SYSSCREMBX 
SYSSDELPRC 
SYSSDELTVA 
SYSSDEQ 
SYSSDERLMB 
SYSSDGBLSC 
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SYS$Q10W 

SYSSREAD 

SYSSREADEF 

SYSSRELEASE 

SYSSPEMOVE 
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SY ND 
SYSSRMSRUHNDLR 


SYSSTRNLOG 
SYSSTRUNCATE 
SYSSULKPAG 
SYSSULWSET 
SYSSUNWIND 
SYSSUPDATE 
SYSSUPDSEC 
SYSSUPDSECW 
SYSSWAIT 
SYSSWAITFR 
SYSSWAKE 
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Psect synopsis gS obe 84:28:98 SYS. SRCJCHODSSDSP.MAR; 1 sea 3 


dome meme mem monen} 


! Psect synopsis ! 


town ne wer ee meneame + 


E 
; 
PSECT name Allocation PSECT No. Attributes , 
, 6. g £88008 ( -»> 0O ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE E 
SABSS 0 BB ( ) 1(¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE E 
$$$0000 80000890 -) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD ~~ WRT NOVEC QUAD ; 
teeceee wer w ete ees ce meeme enn $ 7 
! Performance indicators ! 1 
tenn cceean Bene sree somone wo} MAS 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 +00 :00.07 0: 8:01.41 
Command processing 111 :00: a3 0:00: 8°38 
Pass oe :0 t ‘. 0:01:10.2 
gyanes table sort 20 80:6 : 28 Bo: 0:20:02 
Symbol table output 8 00: 00:00:96 00: 6; 0°80 
Psect synopsis output 3 a 00:00:00.03 
Cross-reference output 3 00:00: 23 00:00:00.00 
Assembler run totals 97 00:00:29.2 00:01:44.18 


The working set Limit was 2100 pages. 

183647 bytes (359 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1355 non-local and 0 local symbols. 
346 source Lines were read in Pass 1, produc ing 18 object records in Pass 2. 

43 pages of virtual memory were used to define 39 macros. 


teow ene ewes ee mee wee ween ee + 


! Macro Library statistics ! 


teeeeoeoeeeoeeeeeoesoeseess + 
Macro Library name Macros defined 
.$255$DUA28: CSYS.OBJIJLIB.MLB; 1 | 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 1 
TOTALS (all libraries) 24 


1204 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSVECTOR/OBJ=OBJ$:SYSVECTOR MSRC$:LBSW/UPDATE=(ENHS$:LBSW) +MSRC$: CMODSSDSP/UPDATE=(ENH$: CMODSSDSP) +EXECML$/LIB 
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